home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / CLOSING.SAB < prev    next >
Text File  |  1991-10-15  |  3KB  |  74 lines
  1. set messages off ; set error messages off
  2. CLEAR ALL V
  3. label retry
  4. cls
  5. DISPLAY CP.DIS
  6. WRITE "CLOSING.SAB" AT 2,36
  7. WRITE "                        " AT 12,21
  8. write "Enter Account Code: " AT 12,1
  9. write "(Enter Address Code, Or Press <ESC> To Exit Program)  " at 14,1
  10. fillin code using " " at 12,22
  11. if code = "" then ; goto oops ; endif
  12. SET POINTER #1 END FOR CUR.MAST WHERE ADD.CODE = .CODE
  13. IF END <> 0 THEN
  14. BEEP;BEEP
  15. WRITE "Address Code Does Not Exist In The Current Master File" AT 14,1
  16. write "Press Any Key To Continue." at 15,1
  17. pause
  18. GOTO RETRY
  19. ENDIF
  20. SET V NAME TO tenant1 IN #1
  21. SET V TOTDUE TO TOT.DUE IN #1
  22. WRITE "                                                             " AT 14, 1
  23. WRITE "CURRENT TENANT: " AT 16,1
  24. WRITE "CURRENT BALANCE: " AT 16,40
  25. WRITE .NAME AT 16,17
  26. WRITE .TOTDUE AT 16,57
  27. WRITE "-----------------------------------------------------------------------+
  28. ---------" AT 15,1
  29. WRITE "-----------------------------------------------------------------------+
  30. ---------" AT 17,1
  31. FILLIN Y/N USING "IS THIS THE TENANT THAT YOU WANT TO CLOSE? " AT 19,1
  32. IF Y/N = "Y" OR Y/N = "y" OR Y/N = "YES" THEN ; goto clo ; endif
  33. goto oops
  34. label clo
  35. CHANGE CLOSEDON TO .#DATE IN CUR.MAST WHERE ADD.CODE = .CODE
  36. change movedout to .#date in cur.mast where add.code = .code
  37. cls
  38. display cp.dis
  39. write "CLOSING.SAB" at 2,36
  40. set v mn to ""
  41. fillin mn using "Set Billing Address To Null?  " at 8,25
  42. if mn = "n" or mn = "no" then ; goto skip ; endif
  43. cha bill.add to "" in cur.mast where add.code = .code
  44. cha bill.cty to "" in cur.mast where add.code = .code
  45. cha bill.sta to "" in cur.mast where add.code = .code
  46. cha bill.zip to "" in cur.mast where add.code = .code
  47. label skip
  48. fillin bn using "Should There Be A Call-Up For Absconding? " at 9,19
  49. if bn = "n" or bn = "no" then ; goto sagain ; endif
  50. cha rec.call to (.#date + 6) in cur.mast where add.code = .code
  51. cha exp.date to (.#date + 26) in cur.mast where add.code = .code
  52. cha reason to "File Papers For Absconding" in cur.mast whe add.code = .code
  53. label sagain
  54. set v yn to ""
  55. APPEND CUR.MAST TO OLD.mast WHERE ADD.CODE = .CODE
  56. append cur.mast to secdep where add.code = .code and sec.dep > 0
  57. fillin yn using "Enter This Account Into LOOKUP? (Y/N) " at 10,19
  58. if yn = "n" then ; goto j1 ; endif
  59. run names.sab
  60. label j1
  61. write "CLOSING.SAB" at 2,36
  62. SET NULL " "
  63. edit using security where add.code = .code and tenant1 = .name
  64. if yn = "n" then ; goto j2 ; endif
  65. edit using edlook where add.code = .code and year = .yr
  66. label j2
  67. cls
  68. label fin
  69. DELETE ROWS FROM CUR.MAST WHERE ADD.CODE = .CODE
  70. label oops
  71. cls
  72. return
  73.  
  74.